home *** CD-ROM | disk | FTP | other *** search
/ Safarir 3 / SafTV-CD3.iso / pc / Bonus / Dessins Animés / static / jeux / tetris.swf / scripts / frame_17 / DoAction.as
Text File  |  2001-11-21  |  279b  |  17 lines
  1. n = "0";
  2. yn = "0";
  3. while(n < "4")
  4. {
  5.    n += "1";
  6.    if("0" < eval("c" add (x + eval("x" add tc add ts add n) + "21") add (y + eval("y" add tc add ts add n) + "20")))
  7.    {
  8.       yn = "1";
  9.    }
  10. }
  11. if(yn == "0")
  12. {
  13.    call("delbox");
  14.    x += "1";
  15.    call("addbox");
  16. }
  17.